home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / STRINGS.SWG / 0031_Return commandline string.pas < prev    next >
Pascal/Delphi Source File  |  1993-09-26  |  521b  |  15 lines
  1. {*****************************************************************************
  2.  * Function ...... Command
  3.  * Purpose ....... To return the command line as a string
  4.  * Parameters .... None
  5.  * Returns ....... The entire command line as one string
  6.  * Notes ......... None
  7.  * Author ........ Martin Richardson
  8.  * Date .......... May 13, 1992
  9.  *****************************************************************************}
  10. FUNCTION Command: STRING;
  11. BEGIN
  12.      Command := STRING( PTR(PREFIXSEG, $0080)^ );
  13. END;
  14.  
  15.